home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / amigalib / domethod.s < prev    next >
Text File  |  1999-01-01  |  388b  |  29 lines
  1.     section "CODE",code
  2.     xdef    _DoMethod
  3.     xdef    _DoMethodA
  4.     cnop    0,4
  5.  
  6. _DoMethod
  7.     lea     8(a7),a1
  8.     bra     L_DoMethod
  9.  
  10. _DoMethodA
  11.     move.l  8(a7),a1
  12.  
  13. L_DoMethod:
  14.     move.l  4(a7),d0
  15.     beq     L_Null
  16.     move.l  a2,-(a7)
  17.     move.l  d0,a2
  18.     move.l  -4(a2),a0
  19.     bsr     L_Invoke
  20.     move.l  (a7)+,a2
  21.  
  22. L_Null
  23.     rts
  24.  
  25. L_Invoke
  26.     move.l  8(a0),-(a7)
  27.     rts
  28.  
  29.